home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / mmsrxprt.lha / REXX / MM_UserExport.rexx
OS/2 REXX Batch file  |  1996-04-26  |  2KB  |  68 lines
  1. /*
  2. ** $VER: MM_UserExport 0.65 (12.03.96)
  3. **
  4. ** Written by Paolo Carotenuto
  5. **
  6. */
  7. IF ~SHOW('l',"rexxsupport.library") THEN;DO
  8. IF ~ADDLIB("rexxsupport.library",0,-30,0) THEN;DO
  9. SAY "Could not open rexxsupport.library"
  10. EXIT 10
  11. END
  12. END
  13. DROP MM.
  14. PARSE ARG MM.Port MM.Switch
  15. MM.PrgName='MM_UserExport v0.65 -+- (C) 1994-96 by Paolo Carotenuto (2:335/202.0)'
  16. MM.Up='A'
  17. IF MM.port='?'|MM.port='' THEN;DO
  18. SAY ''
  19. SAY ''mm.prgname
  20. SAY ''
  21. SAY 'Usage:'
  22. SAY 'Rx MM_UserExport <%port|port> <switch>'
  23. SAY ''
  24. SAY 'Switches:'
  25. SAY '-c  - Use this switch at the user login'
  26. SAY '-s  - Use this switch at the user logoff'
  27. SAY ''
  28. EXIT
  29. END
  30. IF UPPER(MM.Switch)='-C' THEN;DO
  31. SAY ''
  32. SAY 'MM_UserExport -> Start'
  33. SAY ''
  34. OPEN('Temp','T:UserExport.'||MM.Port,'W')
  35. CLOSE('Temp')
  36. EXIT
  37. END
  38. ADDRESS 'MAILMANAGER'
  39. SAY MM.PrgName
  40. SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
  41. SAY ''
  42. MM_AreasWin
  43. IF Rc ~=0 THEN;DO
  44. Text='cThere is an ARexx script waiting.'||'0A'x||'Please go back to the Areas Window as soon as possible'
  45. Gadget="*_Ok"
  46. MM_Requester '"MM Requester"' 'Text' 'Gadget'
  47. END
  48. DO UNTIL Rc=0
  49. CALL Delay(250)
  50. MM_AreasWin
  51. END
  52. MM_GetAreas MM.Aree
  53. MM.Last=SUBWORD(STATEF('T:UserExport.'||MM.Port),5,2)
  54. PARSE VAR MM.Last Day Minute
  55. MM_DeleteFile 'T:UserExport.'||MM.Port
  56. DO i=0 FOR MM.Aree.Count
  57. MM_GetAreaInfo MM.Aree.i Info
  58. SAY MM.Up'Area   :' MM.Aree.i
  59. MM.Data=SUBWORD(STATEF(Info.Path),5,2)
  60. PARSE VAR MM.Data Day2 Minute2
  61. IF Minute2>Minute THEN;DO
  62. IF Day2>= Day THEN MM_Export MM.Aree.i
  63. END
  64. SAY MM.Up'Area   :                              '
  65. END
  66. SAY MM.Up'Done !!                               '
  67. MM_Free
  68. EXIT